home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / dspice0s / codgen.c < prev    next >
C/C++ Source or Header  |  1992-11-21  |  4KB  |  110 lines
  1. /* codgen.f -- translated by f2c (version of 3 February 1990  3:36:42).
  2.    You must link the resulting object file with the libraries:
  3.     -lF77 -lI77 -lm -lc   (in that order)
  4. */
  5.  
  6. #include "f2c.h"
  7.  
  8. /* Common Block Declarations */
  9.  
  10. struct {
  11.     integer ielmnt, isbckt, nsbckt, iunsat, nunsat, itemps, numtem, isens, 
  12.         nsens, ifour, nfour, ifield, icode, idelim, icolum, insize, 
  13.         junode, lsbkpt, numbkp, iorder, jmnode, iur, iuc, ilc, ilr, 
  14.         numoff, isr, nmoffc, iseq, iseq1, neqn, nodevs, ndiag, iswap, 
  15.         iequa, macins, lvnim1, lx0, lvn, lynl, lyu, lyl, lx1, lx2, lx3, 
  16.         lx4, lx5, lx6, lx7, ld0, ld1, ltd, imynl, imvn, lcvn, nsnod, 
  17.         nsmat, nsval, icnod, icmat, icval, loutpt, lpol, lzer, irswpf, 
  18.         irswpr, icswpf, icswpr, irpt, jcpt, irowno, jcolno, nttbr, nttar, 
  19.         lvntmp;
  20. } tabinf_;
  21.  
  22. #define tabinf_1 tabinf_
  23.  
  24. struct {
  25.     integer locate[50], jelcnt[50], nunods, ncnods, numnod, nstop, nut, nlt, 
  26.         nxtrm, ndist, ntlin, ibr, numvs, numalt, numcyc;
  27. } cirdat_;
  28.  
  29. #define cirdat_1 cirdat_
  30.  
  31. struct {
  32.     integer iprnta, iprntl, iprntm, iprntn, iprnto, limtim, limpts, lvlcod, 
  33.         lvltim, itl1, itl2, itl3, itl4, itl5, itl6, igoof, nogo, keof;
  34. } flags_;
  35.  
  36. #define flags_1 flags_
  37.  
  38. struct {
  39.     doublereal twopi, xlog2, xlog10, root2, rad, boltz, charge, ctok, gmin, 
  40.         reltol, abstol, vntol, trtol, chgtol, eps0, epssil, epsox, pivtol,
  41.          pivrel;
  42. } knstnt_;
  43.  
  44. #define knstnt_1 knstnt_
  45.  
  46. struct {
  47.     doublereal atime, aprog[3], adate, atitle[10], defl, defw, defad, defas, 
  48.         rstats[50];
  49.     integer iwidth, lwidth, nopage;
  50. } miscel_;
  51.  
  52. #define miscel_1 miscel_
  53.  
  54. struct {
  55.     doublereal value[200000];
  56. } blank_;
  57.  
  58. #define blank_1 blank_
  59.  
  60. /*<       subroutine codgen >*/
  61. /* Subroutine */ int codgen_()
  62. {
  63.     /* Local variables */
  64. #define nodplc ((integer *)&blank_1)
  65. #define cvalue ((complex *)&blank_1)
  66.  
  67. /*<       implicit double precision (a-h,o-z) >*/
  68.  
  69. /*     this routine generates machine instructions (for the cdc 6400) to 
  70. */
  71. /* lu-factor and solve the set of circuit equations. */
  72.  
  73. /* spice version 2g.6  sccsid=tabinf 3/15/83 */
  74. /*<       common /tabinf/ ielmnt,isbckt,nsbckt,iunsat,nunsat,itemps,numtem, >*/
  75. /*<      1   isens,nsens,ifour,nfour,ifield,icode,idelim,icolum,insize, >*/
  76. /*<      2   junode,lsbkpt,numbkp,iorder,jmnode,iur,iuc,ilc,ilr,numoff,isr, >*/
  77. /*<      3   nmoffc,iseq,iseq1,neqn,nodevs,ndiag,iswap,iequa,macins,lvnim1, >*/
  78. /*<      4   lx0,lvn,lynl,lyu,lyl,lx1,lx2,lx3,lx4,lx5,lx6,lx7,ld0,ld1,ltd, >*/
  79. /*<      5   imynl,imvn,lcvn,nsnod,nsmat,nsval,icnod,icmat,icval, >*/
  80. /*<      6   loutpt,lpol,lzer,irswpf,irswpr,icswpf,icswpr,irpt,jcpt, >*/
  81. /*<      7   irowno,jcolno,nttbr,nttar,lvntmp >*/
  82. /* spice version 2g.6  sccsid=cirdat 3/15/83 */
  83. /*<       common /cirdat/ locate(50),jelcnt(50),nunods,ncnods,numnod,nstop, >*/
  84. /*<      1   nut,nlt,nxtrm,ndist,ntlin,ibr,numvs,numalt,numcyc >*/
  85. /* spice version 2g.6  sccsid=flags 3/15/83 */
  86. /*<       common /flags/ iprnta,iprntl,iprntm,iprntn,iprnto,limtim,limpts, >*/
  87. /*<      1   lvlcod,lvltim,itl1,itl2,itl3,itl4,itl5,itl6,igoof,nogo,keof >*/
  88. /* spice version 2g.6  sccsid=knstnt 3/15/83 */
  89. /*<       common /knstnt/ twopi,xlog2,xlog10,root2,rad,boltz,charge,ctok, >*/
  90. /*<      1   gmin,reltol,abstol,vntol,trtol,chgtol,eps0,epssil,epsox, >*/
  91. /*<      2   pivtol,pivrel >*/
  92. /* spice version 2g.6  sccsid=miscel 3/15/83 */
  93. /*<       common /miscel/ atime,aprog(3),adate,atitle(10),defl,defw,defad, >*/
  94. /*<      1  defas,rstats(50),iwidth,lwidth,nopage >*/
  95. /* spice version 2g.6  sccsid=blank 3/15/83 */
  96. /*<       common /blank/ value(200000) >*/
  97. /*<       integer nodplc(64) >*/
  98. /*<       complex cvalue(32) >*/
  99. /*<       equivalence (value(1),nodplc(1),cvalue(1)) >*/
  100. /*<       logical memptr >*/
  101. /*<       return >*/
  102.     return 0;
  103. /*<       end >*/
  104. } /* codgen_ */
  105.  
  106. #undef cvalue
  107. #undef nodplc
  108.  
  109.  
  110.